home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh11b.d64
/
aktiv filter
(
.txt
)
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
64 lines
100 REM BERECHNUNG VON AKTIVEN FILTERN
110 PI=3.1415926536
120 PRINT"[147]"CHR$(14)TAB(5)"[194]ERECHNUNG VON AKTIVEN [198]ILTERN"
130 PRINT" [212][146]IEFPASS, [200][146]OCHPASS ODER [194][146]ANDPASS ?"
140 GETA$:IFA$=""THEN140
150 IFA$="T"THEN1000
160 IFA$="H"THEN2000
170 IFA$="B"THEN3000
180 GOTO140
1000 REM BERECHNUNG TIEFPASS
1010 PRINT"[147][212]IEFPASS:":PRINT
1020 INPUT"[199]RENZFREQUENZ [K[200]Z]:";FO
1030 INPUT"[214]ERSTAERKUNG :";V
1040 INPUT"[203]ONDENSATOR [195]2 [N[198]]:";C2
1050 PRINT
1060 FO=FO*10^3:C2=C2*10^(-9):V=INT(V)
1070 R1=(SQR(2)/(4*PI*FO*C2*V))
1080 PRINT"[215]IDERSTAND [210]1 :";INT(R1);"[207]HM"
1090 R2=INT(V*R1/V+1)
1100 PRINT"[215]IDERSTAND [210]2 :";INT(R2);"[207]HM"
1110 R3=V*R1
1120 PRINT"[215]IDERSTAND [210]3 :";INT(R3);"[207]HM"
1130 C1=2*C2*(V+1)*10^9:C2=C2*10^9
1140 PRINT"[203]ONDENSATOR [195]1 :";C1;"N[198]"
1150 PRINT"[203]ONDENSATOR [195]2 :";C2;"N[198]"
1160 GOTO4000
2000 REM BERECHNUNG HOCHPASS
2010 PRINT"[147][200]OCHPASS:":PRINT
2020 INPUT"[199]RENZFREQUENZ [K[200]Z]:";FO
2030 INPUT"[214]ERSTAERKUNG :";V
2040 INPUT"[203]ONDENSATOREN [195]1=[195]2 [N[198]]:";C1
2050 PRINT
2060 FO=FO*10^3:C1=C1*10^(-9):C2=C1:V=INT(V)
2070 R1=INT(SQR(2)/(2*PI*FO*C1*(2+1/V)))
2080 PRINT"[215]IDERSTAND [210]1 :";R1;"[207]HM"
2090 R2=INT((V+1)/(SQR(2)*PI*FO*C1))
2100 PRINT"[215]IDERSTAND [210]2 :";R2;"[207]HM"
2110 C3=(C2/V)*10^9:C1=C1*10^9
2120 PRINT"[203]ONDENSATOR [195]1 :";C1;"N[198]"
2130 PRINT"[203]ONDENSATOR [195]1 :";C1;"N[198]"
2140 PRINT"[203]ONDENSATOR [195]3 :";C3;"N[198]"
2150 GOTO4000
3000 REM BERECHNUNG BANDPASS
3010 PRINT"[147][194]ANDPASS:":PRINT
3020 INPUT"[205]ITTENFREQUENZ [K[200]Z]:";FO
3030 INPUT"[194]ANDBREITE :";B
3040 INPUT"[214]ERSTAERKUNG :";V
3050 INPUT"[203]ONDENSATOREN [195]1=[195]2 [N[198]]:";C1
3060 PRINT
3070 FO=FO*10^3:C1=C1*10^(-9):C2=C1:V=INT(V)
3080 R1=INT(1/(2*PI*C1*B*V))
3090 PRINT"[215]IDERSTAND [210]1 :";R1;"[207]HM"
3100 R2=INT(1/(((2*FO^2)/B^2-V)*2*PI*C1*B))
3110 PRINT"[215]IDERSTAND [210]2 :";R2;"[207]HM"
3120 R3=INT(1/(PI*C1*B))
3130 PRINT"[215]IDERSTAND [210]3 :";R3;"[207]HM"
3140 C1=C1*10^9
3150 PRINT"[203]ONDENSATOR [195]1 :";C1;"N[198]"
3160 PRINT"[203]ONDENSATOR [195]2 :";C1;"N[198]"
4000 PRINT"[215]OLLEN [211]IE NEUE [215]ERTE EINGEBEN ([202]/[206]) ?"
4010 GETA$:IFA$=""THEN4010
4020 IFA$="J"THENRUN
4030 END